home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Winter / The Apple Reference & Presentations Library CD Winter 93 - Partner Edition.7z / Image.iso / Applications / Technical Publishing / Aldus PageMaker 4.2 / Aldus / PP1.5.1.RSRC / PP1.5.1.RSRC.adf / DICT_101 < prev    next >
Text File  |  1991-12-09  |  5KB  |  218 lines
  1. /AldusSepsDict 100 dict def
  2. AldusSepsDict begin
  3. /ASD_4array 4 array def
  4. /settransfer systemdict /settransfer get def
  5. /ASD_something_on_page false def
  6. /ASD_inverted? 0 currenttransfer exec 1 eq def
  7. /ASD_setgray 
  8. {
  9. systemdict /setgray get exec
  10. }bind def
  11. /setgray    
  12. {
  13. ASD_sepink (process black) eq 
  14. /AldusDict2 where 
  15. {pop AldusDict2 begin AldusVersion 209 ge AldusRev 30 ge and end
  16. {AldusDict2 /AD_NonSepPat get}{false}ifelse 
  17. }{false}ifelse or not 
  18. {pop 1} if ASD_setgray
  19. }bind def
  20. /setcmykcoloroverprint
  21. {
  22. pop pop pop pop
  23. }bind def
  24. /findcmykcustomcolor    
  25. {
  26. 5/packedarray where{pop packedarray}{array astore readonly}ifelse
  27. }bind def
  28. /setcmykcolor    
  29. {            
  30. }def
  31. /setcustomcolor     
  32. {
  33. exch aload pop dup ASD_tolower ASD_toprocess?
  34. {pop 4 {4 index mul 4 1 roll} repeat setcmykcolor pop}
  35. {dup ASD_tolower ASD_spotinkoverprint? ASD_setinkoverprint
  36. 5 1 roll 4 {pop} repeat ASD_tolower ASD_sepink eq
  37. {1 exch sub ASD_setgray}
  38. {pop 1 ASD_setgray}ifelse
  39. } ifelse
  40. } bind def
  41. /setseparationgray    
  42. {
  43. ASD_setgray AldusSepsDict begin 
  44. /currentoverprint false def /ASD_inkoverprint false def end
  45. }bind def
  46. /ASD_ucrk .5 def        
  47. /ASD_ucrm .31 def        
  48. /ASD_ucry .48 def        
  49. /ASD_boostk 1.25 def    
  50. /ASD_cvt1
  51. {
  52. 1 exch sub 3 1 roll
  53. }bind def
  54. /ASD_cvt2
  55. {
  56. 0 2 copy lt{exch}if pop 3 1 roll
  57. }bind def
  58. /setrgbcolor                                            
  59. {
  60. ASD_cvt1 ASD_cvt1 ASD_cvt1                            
  61. 3 copy 2 copy gt{exch}if pop 2 copy gt{exch}if pop    
  62. ASD_ucrk sub 0 2 copy lt{exch}if pop                
  63. 4 1 roll                                            
  64. 3 {3 index sub 3 1 roll} repeat                        
  65. 1 index ASD_ucry mul sub ASD_cvt2                    
  66. 1 index ASD_ucrm mul sub ASD_cvt2                    
  67. 3 1 roll                                            
  68. 4 -1 roll ASD_boostk mul                            
  69. setcmykcolor
  70. }bind def
  71. /sethsbcolor
  72. {
  73. sethsbcolor currentrgbcolor setrgbcolor
  74. }bind def
  75. /currentoverprint false def
  76. /ASD_inkoverprint false def
  77. /ASD_DCS? false def
  78. /setoverprint    
  79. {
  80. AldusSepsDict /currentoverprint 3 -1 roll put
  81. }bind def
  82. /imagemask
  83. {
  84. ASD_draw? 
  85. {systemdict /imagemask get exec}
  86. {gsave nulldevice systemdict /imagemask get exec grestore}ifelse
  87. }bind def    
  88. /image    
  89. { 
  90. ASD_DCS?
  91. {systemdict /image get exec AldusSepsDict /ASD_something_on_page true put}
  92. {ASD_sepink (process black) eq 
  93. {systemdict /image get exec AldusSepsDict /ASD_something_on_page true put}
  94. {gsave ASD_inverted? {{pop 0}}{{pop 1}}ifelse
  95. settransfer systemdict /image get exec grestore
  96. }ifelse
  97. }ifelse
  98. }def    
  99. /customcolorimage    
  100. {
  101. aload pop 5 1 roll 4{pop}repeat ASD_tolower ASD_sepink eq 
  102. {systemdict /image get exec AldusSepsDict /ASD_something_on_page true put}    
  103. {gsave ASD_inverted? {{pop 0}}{{pop 1}}ifelse
  104. settransfer systemdict /image get exec grestore}ifelse
  105. }def    
  106. /ASD_invbuf        
  107. {
  108. 0 1 2 index length 1 sub
  109. {
  110. dup 2 index exch get 255 exch sub 2 index 3 1 roll put
  111. }for
  112. }bind def
  113. /separationimage
  114. {
  115. systemdict /image get exec
  116. }bind def
  117. /stroke
  118. {
  119. ASD_draw? {stroke}{newpath} ifelse
  120. }bind def
  121. /fill
  122. {
  123. ASD_draw? {fill}{newpath} ifelse
  124. }bind def
  125. /eofill
  126. {
  127. ASD_draw? {eofill}{newpath} ifelse
  128. }bind def
  129. /show
  130. {
  131. ASD_draw? {show}{pop} ifelse
  132. }bind def
  133. /ashow
  134. {ASD_draw? {ashow}{pop pop pop} ifelse
  135. }bind def
  136. /widthshow
  137. {
  138. ASD_draw? {widthshow}{pop pop pop pop} ifelse
  139. }bind def
  140. /awidthshow
  141. {
  142. ASD_draw? {awidthshow}{pop pop pop pop pop pop} ifelse
  143. }bind def
  144. /kshow
  145. {ASD_draw? {kshow}{pop pop} ifelse
  146. }bind def
  147. /ASD_toprocess?
  148. {
  149. ASD_candink copy dup 
  150. 0 1 inks length 1 sub
  151. {inks exch get aload pop 4 -2 roll eq
  152. {exch pop exit}{pop pop dup}ifelse
  153. }for 
  154. exch pop
  155. }bind def
  156. /ASD_spotinkoverprint?    
  157. {
  158. ASD_candink copy dup 
  159. 0 1 inks length 1 sub
  160. {inks exch get aload pop 4 -2 roll eq
  161. {pop exit}{pop pop dup}ifelse
  162. }for exch pop
  163. }bind def
  164. /ASD_setinkoverprint    
  165. {
  166. AldusSepsDict /ASD_inkoverprint 3 -1 roll put
  167. }bind def
  168. /ASD_processinkoverprint?
  169. {
  170. inks exch get 1 get
  171. }bind def
  172. /ASD_pure? 
  173. {
  174. aload pop 0 ne exch 0 ne 3 -1 roll 0 ne 4 -1 roll 0 ne 0 5 1 roll
  175. 3 -1 0
  176. {exch true eq
  177. {dup 0 gt{2 add dup -1 roll 1 add exch 1 sub 1 roll}
  178. {pop 1 add}ifelse}
  179. {pop}ifelse}
  180. for
  181. 1 eq
  182. }def
  183. /ASD_overprintprocess    
  184. {
  185. false ASD_setinkoverprint 
  186. dup ASD_pure?    
  187. {aload pop mark 5 1 roll
  188. 3 -1 0{exch 0 ne    
  189. {ASD_processinkoverprint?
  190. {true ASD_setinkoverprint exit}if
  191. }{pop}ifelse
  192. }for cleartomark
  193. }{pop}ifelse
  194. }bind def
  195. /ASD_draw?
  196. {
  197. currentoverprint ASD_inkoverprint or not currentgray 1 ne dup
  198. {AldusSepsDict /ASD_something_on_page true put}if or
  199. }bind def
  200. /ASD_tolower{    
  201. ASD_candink copy dup -1 3 1 roll
  202. {3 -1 roll 1 add 3 1 roll dup dup 65 ge exch 90 le and 
  203. {exch dup 3 -1 roll 32 add 4 -1 roll dup 5 1 roll exch put}{pop}ifelse
  204. }forall 
  205. exch pop
  206. }bind def
  207. /ASD_#copies 1 def
  208. /ASD_candink 100 string def    
  209. /ASD_showpage 
  210. { 
  211. ASD_something_on_page 
  212. {userdict /#copies 1 put ASD_#copies{copypage}repeat 
  213. AldusSepsDict /ASD_something_on_page false put}if 
  214. erasepage
  215. } bind def
  216. /showpage {} def
  217. end    
  218.